home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / A-B / Astro2.cpt / Astrologer's Toolbox 2.2 / card_3054.txt < prev    next >
Text File  |  1990-12-13  |  16KB  |  651 lines
  1. -- card: 3054 from stack: in.2
  2. -- bmap block id: 3092
  3. -- flags: 4000
  4. -- background id: 2598
  5. -- name: Data entry
  6. ----- HyperTalk script -----
  7. on openCard
  8.  
  9.   If "enter" is in card field "name"
  10.   then Select line 1 of card field "name"
  11.  
  12. end openCard
  13.  
  14.  
  15.  
  16. -- part 2 (field)
  17. -- low flags: 02
  18. -- high flags: 0004
  19. -- rect: left=96 top=58 right=77 bottom=266
  20. -- title width / last selected line: 0
  21. -- icon id / first selected line: 0 / 0
  22. -- text alignment: 0
  23. -- font id: 3
  24. -- text size: 12
  25. -- style flags: 0
  26. -- line height: 16
  27. -- part name: Name
  28.  
  29.  
  30. -- part 49 (field)
  31. -- low flags: 02
  32. -- high flags: 0004
  33. -- rect: left=371 top=57 right=77 bottom=405
  34. -- title width / last selected line: 0
  35. -- icon id / first selected line: 0 / 0
  36. -- text alignment: 1
  37. -- font id: 3
  38. -- text size: 12
  39. -- style flags: 0
  40. -- line height: 16
  41. -- part name: monthNumber
  42.  
  43.  
  44. -- part 50 (field)
  45. -- low flags: 02
  46. -- high flags: 0004
  47. -- rect: left=418 top=58 right=77 bottom=446
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 1
  51. -- font id: 3
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: dayNumber
  56. ----- HyperTalk script -----
  57. on openField
  58.   Put card field "monthNumber" into previousField
  59.   --Set highLight of card button "Daylight Savings" to false
  60.  
  61.   --  *********************************************
  62.   --  **  Check if any alpha characters present  **
  63.   --  *********************************************
  64.  
  65.   Put the length of previousField into len
  66.   Put true into isNumber
  67.   Repeat with i = 1 to len
  68.     If character i of previousField is not in "0123456789" then
  69.       Put false into isNumber
  70.       exit repeat
  71.     end if
  72.   end repeat
  73.  
  74.   --  ***********************************
  75.   --  **  Check input data is in range **
  76.   --  ***********************************
  77.  
  78.   If  isNumber is false then
  79.     Answer "Month must be 1 to 12; found [" & previousField & "]"
  80.     Select line 1 of card field "monthNumber"
  81.     exit openfield
  82.   end if
  83.  
  84.   If (previousField - trunc(previousField) <> 0) or (previousField < 1) or (previousField > 12)  then
  85.     Answer "Month must be 1 to 12; found [" & previousField & "]"
  86.     Select line 1 of card field "monthNumber"
  87.     exit openfield
  88.   end if
  89. end openField
  90.  
  91.  
  92. -- part 51 (field)
  93. -- low flags: 02
  94. -- high flags: 0004
  95. -- rect: left=454 top=58 right=78 bottom=499
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 0
  99. -- font id: 3
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: yearNumber
  104. ----- HyperTalk script -----
  105. on openField
  106.   Put card field "dayNumber" into previousField
  107.  
  108.   --  *********************************************
  109.   --  **  Check if any alpha characters present  **
  110.   --  *********************************************
  111.  
  112.   Put the length of previousField into len
  113.   Put true into isNumber
  114.   Repeat with i = 1 to len
  115.     If character i of previousField is not in "0123456789" then
  116.       Put false into isNumber
  117.       exit repeat
  118.     end if
  119.   end repeat
  120.  
  121.   --  ***********************************
  122.   --  **  Check input data is in range **
  123.   --  ***********************************
  124.  
  125.   If  isNumber is false then
  126.     Answer "Day must be 1 to 31; found [" & previousField & "]"
  127.     Select line 1 of card field "dayNumber"
  128.     exit openfield
  129.   end if
  130.  
  131.   If (previousField - trunc(previousField) <> 0) or (previousField < 1) or (previousField > 31)  then
  132.     Answer "Day must be 1 to 31; found [" & previousField & "]"
  133.     Select line 1 of card field "dayNumber"
  134.     exit openfield
  135.   end if
  136. end openField
  137.  
  138.  
  139. -- part 52 (field)
  140. -- low flags: 02
  141. -- high flags: 0004
  142. -- rect: left=347 top=116 right=135 bottom=376
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 0 / 0
  145. -- text alignment: 65535
  146. -- font id: 3
  147. -- text size: 12
  148. -- style flags: 0
  149. -- line height: 16
  150. -- part name: hourNumber
  151. ----- HyperTalk script -----
  152. on openField
  153.   Put card field "yearNumber" into previousField
  154.  
  155.   --  *********************************************
  156.   --  **  Check if any alpha characters present  **
  157.   --  *********************************************
  158.  
  159.   Put the length of previousField into len
  160.   Put true into isNumber
  161.   Repeat with i = 1 to len
  162.     If character i of previousField is not in "0123456789" then
  163.       Put false into isNumber
  164.       exit repeat
  165.     end if
  166.   end repeat
  167.  
  168.   --  ***********************************
  169.   --  **  Check input data is in range **
  170.   --  ***********************************
  171.  
  172.   If  isNumber is false then
  173.     Answer "Year must be 1900 to 2000; found [" & previousField & "]"
  174.     Select line 1 of card field "yearNumber"
  175.     exit openfield
  176.   end if
  177.  
  178.   If (previousField - trunc(previousField) <> 0) or (previousField > 2000) or (previousField < 1900)  then
  179.     Answer "Year must be 1900 to 2000; found [" & previousField & "]"
  180.     Select line 1 of card field "yearNumber"
  181.     exit openfield
  182.   end if
  183. end openField
  184.  
  185.  
  186. -- part 54 (field)
  187. -- low flags: 02
  188. -- high flags: 0004
  189. -- rect: left=386 top=116 right=136 bottom=414
  190. -- title width / last selected line: 0
  191. -- icon id / first selected line: 0 / 0
  192. -- text alignment: 0
  193. -- font id: 3
  194. -- text size: 12
  195. -- style flags: 0
  196. -- line height: 16
  197. -- part name: minuteNumber
  198. ----- HyperTalk script -----
  199. on openField
  200.   Put card field "hourNumber" into previousField
  201.  
  202.   --  *********************************************
  203.   --  **  Check if any alpha characters present  **
  204.   --  *********************************************
  205.  
  206.   Put the length of previousField into len
  207.   Put true into isNumber
  208.   Repeat with i = 1 to len
  209.     Put character i of previousField into testChar
  210.     --Put "[" & testChar & "]"
  211.     If testChar is not in "0123456789" then
  212.       Put false into isNumber
  213.       exit repeat
  214.     end if
  215.   end repeat
  216.  
  217.   --  ***********************************
  218.   --  **  Check input data is in range **
  219.   --  ***********************************
  220.  
  221.   If  isNumber is false then
  222.     Answer "Hour must be 1 to 12; found [" & previousField & "]"
  223.     Select line 1 of card field "hourNumber"
  224.     exit openfield
  225.   end if
  226.  
  227.   If (previousField - trunc(previousField) <> 0) or (previousField > 12) or (previousField < 1)  then
  228.     Answer "Hour must be 1 to 12; found [" & previousField & "]"
  229.     Select line 1 of card field "hourNumber"
  230.     exit openfield
  231.   end if
  232. end openField
  233.  
  234.  
  235. -- part 3 (field)
  236. -- low flags: 00
  237. -- high flags: 0002
  238. -- rect: left=48 top=216 right=250 bottom=236
  239. -- title width / last selected line: 0
  240. -- icon id / first selected line: 0 / 0
  241. -- text alignment: 0
  242. -- font id: 3
  243. -- text size: 12
  244. -- style flags: 0
  245. -- line height: 16
  246. -- part name: Place
  247.  
  248.  
  249. -- part 7 (field)
  250. -- low flags: 00
  251. -- high flags: 0002
  252. -- rect: left=218 top=260 right=279 bottom=266
  253. -- title width / last selected line: 0
  254. -- icon id / first selected line: 0 / 0
  255. -- text alignment: 0
  256. -- font id: 3
  257. -- text size: 12
  258. -- style flags: 0
  259. -- line height: 16
  260. -- part name: Zone
  261.  
  262.  
  263. -- part 19 (button)
  264. -- low flags: 00
  265. -- high flags: A006
  266. -- rect: left=415 top=129 right=141 bottom=457
  267. -- title width / last selected line: 0
  268. -- icon id / first selected line: 0 / 0
  269. -- text alignment: 1
  270. -- font id: 0
  271. -- text size: 12
  272. -- style flags: 0
  273. -- line height: 16
  274. -- part name: AM
  275. ----- HyperTalk script -----
  276. on mouseUp
  277.   if hilite of card button "am" is true
  278.   then set hilite of card button "pm" to false
  279. end mouseUp
  280.  
  281.  
  282.  
  283. -- part 20 (button)
  284. -- low flags: 00
  285. -- high flags: E006
  286. -- rect: left=414 top=114 right=126 bottom=457
  287. -- title width / last selected line: 0
  288. -- icon id / first selected line: 0 / 0
  289. -- text alignment: 1
  290. -- font id: 0
  291. -- text size: 12
  292. -- style flags: 0
  293. -- line height: 16
  294. -- part name: PM
  295. ----- HyperTalk script -----
  296. on mouseUp
  297.   if hilite of card button "pm" is true
  298.   then set hilite of card button "am" to false
  299. end mouseUp
  300.  
  301.  
  302.  
  303. -- part 21 (button)
  304. -- low flags: 00
  305. -- high flags: A005
  306. -- rect: left=331 top=154 right=170 bottom=460
  307. -- title width / last selected line: 0
  308. -- icon id / first selected line: 0 / 0
  309. -- text alignment: 1
  310. -- font id: 0
  311. -- text size: 12
  312. -- style flags: 0
  313. -- line height: 16
  314. -- part name: Daylight Savings
  315.  
  316.  
  317. -- part 24 (field)
  318. -- low flags: 00
  319. -- high flags: 0002
  320. -- rect: left=119 top=259 right=278 bottom=181
  321. -- title width / last selected line: 0
  322. -- icon id / first selected line: 0 / 0
  323. -- text alignment: 0
  324. -- font id: 3
  325. -- text size: 12
  326. -- style flags: 0
  327. -- line height: 16
  328. -- part name: Longitude
  329.  
  330.  
  331. -- part 25 (field)
  332. -- low flags: 00
  333. -- high flags: 0002
  334. -- rect: left=33 top=259 right=276 bottom=82
  335. -- title width / last selected line: 0
  336. -- icon id / first selected line: 0 / 0
  337. -- text alignment: 0
  338. -- font id: 3
  339. -- text size: 12
  340. -- style flags: 0
  341. -- line height: 16
  342. -- part name: Latitude
  343.  
  344.  
  345. -- part 28 (button)
  346. -- low flags: 00
  347. -- high flags: A003
  348. -- rect: left=37 top=190 right=210 bottom=245
  349. -- title width / last selected line: 0
  350. -- icon id / first selected line: 0 / 0
  351. -- text alignment: 1
  352. -- font id: 0
  353. -- text size: 12
  354. -- style flags: 0
  355. -- line height: 16
  356. -- part name: Click here to Select Birthplace
  357. ----- HyperTalk script -----
  358. on mouseUp
  359.   visual venetian blinds very slow
  360.   go to card "Birthplace"
  361. end mouseUp
  362.  
  363.  
  364. -- part 36 (button)
  365. -- low flags: 00
  366. -- high flags: A005
  367. -- rect: left=171 top=124 right=138 bottom=322
  368. -- title width / last selected line: 0
  369. -- icon id / first selected line: 21060 / 21060
  370. -- text alignment: 1
  371. -- font id: 0
  372. -- text size: 12
  373. -- style flags: 0
  374. -- line height: 16
  375. -- part name: Unknown birthtime
  376. ----- HyperTalk script -----
  377. on mouseUp
  378.  
  379.   if hilite of me is true then
  380.  
  381.     answer "12:01pm (noon) assumed at birthplace" with "Continue"
  382.  
  383.     Put 12 into card field "hourNumber"
  384.     Put "01" into card field "minuteNumber"
  385.     set hilite of card button "pm" to true
  386.     set hilite of card button "am" to false
  387.     set hilite of card button "Daylight Savings" to false
  388.  
  389.   end if
  390.  
  391. end mouseUp
  392.  
  393.  
  394. -- part 60 (field)
  395. -- low flags: 01
  396. -- high flags: 0001
  397. -- rect: left=473 top=302 right=342 bottom=512
  398. -- title width / last selected line: 0
  399. -- icon id / first selected line: 0 / 0
  400. -- text alignment: 0
  401. -- font id: 3
  402. -- text size: 12
  403. -- style flags: 0
  404. -- line height: 16
  405. -- part name: 
  406.  
  407.  
  408. -- part 57 (button)
  409. -- low flags: 00
  410. -- high flags: A000
  411. -- rect: left=93 top=117 right=160 bottom=166
  412. -- title width / last selected line: 0
  413. -- icon id / first selected line: 32462 / 32462
  414. -- text alignment: 1
  415. -- font id: 0
  416. -- text size: 12
  417. -- style flags: 0
  418. -- line height: 16
  419. -- part name: Birth Time Help
  420. ----- HyperTalk script -----
  421. on mouseUp
  422.  
  423.   Lock screen
  424.   Set the visible of card field "mask birth data entry" of card "first" to true
  425.   Go to card "First"
  426.   Put "__Birth Time" into topic
  427.   Find string topic
  428.   Unlock screen with iris open very slowly
  429.   Repeat for 5
  430.     Find string topic
  431.   end repeat
  432.  
  433. end mouseUp
  434.  
  435.  
  436.  
  437. -- part 58 (button)
  438. -- low flags: 00
  439. -- high flags: A000
  440. -- rect: left=463 top=123 right=170 bottom=506
  441. -- title width / last selected line: 0
  442. -- icon id / first selected line: 32462 / 32462
  443. -- text alignment: 1
  444. -- font id: 0
  445. -- text size: 12
  446. -- style flags: 0
  447. -- line height: 16
  448. -- part name: DST Help
  449. ----- HyperTalk script -----
  450. on mouseUp
  451.  
  452.   Lock screen
  453.   Set the visible of card field "mask birth data entry" of card "first" to true
  454.   Go to card "First"
  455.   Put "__Daylight Savings" into topic
  456.   Find string topic
  457.   Unlock screen with iris open very slowly
  458.   Repeat for 5
  459.     Find string topic
  460.   end repeat
  461.  
  462. end mouseUp
  463.  
  464.  
  465.  
  466. -- part 61 (button)
  467. -- low flags: 80
  468. -- high flags: 0000
  469. -- rect: left=301 top=12 right=36 bottom=346
  470. -- title width / last selected line: 0
  471. -- icon id / first selected line: 1016 / 1016
  472. -- text alignment: 1
  473. -- font id: 0
  474. -- text size: 12
  475. -- style flags: 0
  476. -- line height: 16
  477. -- part name: Cursor
  478.  
  479.  
  480. -- part 63 (button)
  481. -- low flags: 00
  482. -- high flags: A001
  483. -- rect: left=442 top=290 right=342 bottom=512
  484. -- title width / last selected line: 0
  485. -- icon id / first selected line: 26425 / 26425
  486. -- text alignment: 1
  487. -- font id: 0
  488. -- text size: 12
  489. -- style flags: 0
  490. -- line height: 16
  491. -- part name: CONTINUE
  492. ----- HyperTalk script -----
  493. on mouseUp
  494.   --
  495.   --  **************************************
  496.   --  **  Empty fields in card "Planets"  **
  497.   --  **************************************
  498.   --
  499.   Put empty into card field "Sign names" of card "planets"
  500.   Put empty into card field "Planet DDsignMM" of card "planets"
  501.   Put empty into card field "Planet symbols" of card "planets"
  502.   Put empty into card field "House" of card "planets"
  503.   --
  504.   repeat with N = 2 to 13
  505.     do "Put empty into card field PlanetAspects" & N & " of card planets"
  506.     set cursor to busy
  507.   end repeat
  508.   repeat with N = 2 to 13
  509.     do "Put empty into card field PlanetAspects" & N & " of card planets"
  510.     set cursor to busy
  511.   end repeat
  512.   --
  513.   visual effect wipe right very slowly
  514.   Go to card "Planets"
  515.   calculate
  516. end mouseUp
  517.  
  518.  
  519.  
  520. -- part 64 (button)
  521. -- low flags: 00
  522. -- high flags: A006
  523. -- rect: left=379 top=261 right=277 bottom=435
  524. -- title width / last selected line: 0
  525. -- icon id / first selected line: 0 / 0
  526. -- text alignment: 1
  527. -- font id: 0
  528. -- text size: 12
  529. -- style flags: 0
  530. -- line height: 16
  531. -- part name: Equal
  532. ----- HyperTalk script -----
  533. on mouseUp
  534.  
  535.   if hilite of me is true then
  536.     set hilite of card button "Koch" to false
  537.     set hilite of card button "Placidus" to false
  538.   end if
  539.  
  540.   --  ******************************************************
  541.   --  **  FORCE PLACIDUS AS DEFAULT IF NO SYSTEM CHOOSEN  **
  542.   --  ******************************************************
  543.  
  544.   if (hilite of card button "Equal" is false) and (hilite of card button "Placidus" is false) and (hilite of card button "Koch" is false)
  545.   then set hilite of card button "Placidus" to true
  546.  
  547. end mouseUp
  548.  
  549.  
  550.  
  551. -- part 65 (button)
  552. -- low flags: 00
  553. -- high flags: E006
  554. -- rect: left=298 top=261 right=276 bottom=373
  555. -- title width / last selected line: 0
  556. -- icon id / first selected line: 0 / 0
  557. -- text alignment: 1
  558. -- font id: 0
  559. -- text size: 12
  560. -- style flags: 0
  561. -- line height: 16
  562. -- part name: Placidus
  563. ----- HyperTalk script -----
  564. on mouseUp
  565.  
  566.   if hilite of me is true then
  567.     set hilite of card button "Koch" to false
  568.     set hilite of card button "Equal" to false
  569.   end if
  570.  
  571.   --  ******************************************************
  572.   --  **  FORCE PLACIDUS AS DEFAULT IF NO SYSTEM CHOOSEN  **
  573.   --  ******************************************************
  574.  
  575.   if (hilite of card button "Equal" is false) and (hilite of card button "Placidus" is false) and (hilite of card button "Koch" is false)
  576.   then set hilite of card button "Placidus" to true
  577.  
  578. end mouseUp
  579.  
  580.  
  581.  
  582. -- part 66 (button)
  583. -- low flags: 00
  584. -- high flags: A006
  585. -- rect: left=447 top=262 right=276 bottom=500
  586. -- title width / last selected line: 0
  587. -- icon id / first selected line: 0 / 0
  588. -- text alignment: 1
  589. -- font id: 0
  590. -- text size: 12
  591. -- style flags: 0
  592. -- line height: 16
  593. -- part name: Koch
  594. ----- HyperTalk script -----
  595. on mouseUp
  596.  
  597.   if hilite of me is true then
  598.     set hilite of card button "Equal" to false
  599.     set hilite of card button "Placidus" to false
  600.   end if
  601.  
  602.   --  ******************************************************
  603.   --  **  FORCE PLACIDUS AS DEFAULT IF NO SYSTEM CHOOSEN  **
  604.   --  ******************************************************
  605.  
  606.   if (hilite of card button "Equal" is false) and (hilite of card button "Placidus" is false) and (hilite of card button "Koch" is false)
  607.   then set hilite of card button "Placidus" to true
  608.  
  609. end mouseUp
  610.  
  611.  
  612.  
  613. -- part contents for card part 7
  614. ----- text -----
  615. 08:00
  616.  
  617. -- part contents for card part 24
  618. ----- text -----
  619. 121w17
  620.  
  621. -- part contents for card part 25
  622. ----- text -----
  623. 37n58
  624.  
  625. -- part contents for card part 50
  626. ----- text -----
  627. 13
  628.  
  629. -- part contents for card part 51
  630. ----- text -----
  631. 1990
  632.  
  633. -- part contents for card part 52
  634. ----- text -----
  635. 4
  636.  
  637. -- part contents for card part 54
  638. ----- text -----
  639. 34
  640.  
  641. -- part contents for card part 3
  642. ----- text -----
  643. Stockton, CA
  644.  
  645. -- part contents for card part 2
  646. ----- text -----
  647. First enter name
  648.  
  649. -- part contents for card part 49
  650. ----- text -----
  651. 12